home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Video.dir / 00017.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  425 b   |  19 lines
  1. on exitFrame
  2.   cursor([cast "curs", cast "mask"])
  3.   if the movieTime of sprite 8 = the duration of member the castNum of sprite 8 then
  4.     cursor(-1)
  5.     set the visible of sprite 8 to 0
  6.     set the movieRate of sprite 8 to 0
  7.     go("sala")
  8.     set the movieRate of sprite 8 to 1
  9.   end if
  10.   go(the frame)
  11. end
  12.  
  13. on mouseUp
  14.   cursor(-1)
  15.   set the movieRate of sprite 8 to 0
  16.   go("sala")
  17.   set the movieRate of sprite 8 to 1
  18. end
  19.